home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PPC1B3AA.ZIP / SELCASE.PPS < prev    next >
Text File  |  1996-07-21  |  435b  |  28 lines

  1. ;
  2. ;           This example illustrates the embedding of Select Case
  3. ;
  4.  
  5. Int A, B
  6.  
  7. A=1
  8. B=2
  9.  
  10. Select Case A
  11.     Case 1
  12.         PrintLn "A=1"
  13.         Select Case B
  14.             Case 1
  15.                 PrintLn "bug!"
  16.             Case 2
  17.                 PrintLn "B=2"
  18.             Case 3
  19.                 PrintLn "bug!"
  20.         End Select
  21.     Case 2
  22.         PrintLn "bug!"
  23.     Case 3
  24.         PrintLn "bug!"
  25. End Select
  26.  
  27.  
  28.